Univers Mac Interactif 42/Univers Mac Interactif - Issue 42.iso/>interactif/Démos Voyager/OLDTANDF.DIR/00063_Script_63

Text File | 1994-11-01 | 782b | 39 lines

on waitQT chan
  if the movieRate of sprite chan = 1 then go to the frame
end
on waitSound chan
  if  soundbusy(chan) = 1 then go to the frame
end

on myWait theTicks
  set myTicks = theTicks + the ticks
  repeat while (myTicks >= the ticks)
  end repeat
end

on switch
  if the colordepth > 8 then
    put the castnum of sprite 1 into eightB
    put the name of cast eightB into oldCast
    put "16"&OldCast into newCast
    set the castNum of sprite 1 to the number of cast newCast
  end if
end

on waiting theTicks
  --must be preceded by startTimer
  repeat while theTicks >= the timer
    updateStage
  end repeat
end

on KeyDown
  global autoplaying
  put 0 into autoplaying
  sound stop 1
  sound stop 2
  unloadcast
  play done
end